home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 July / 64er_Magazin_92-07_1992-12-02_Markt__Technik_de.d64 / cls-demo 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  561b  |  28 lines
  1. 10 rem ***********************
  2. 20 rem *                     *
  3. 30 rem * cls-demo 1 in basic *
  4. 40 rem *                     *
  5. 50 rem ***********************
  6. 60 rem
  7. 70 rem fs = farb-ram-start
  8. 80 rem sp = bildschirm-groesse
  9. 90 rem fe = farb-ram-ende
  10. 100 :
  11. 105 gosub 310
  12. 110 fs=55296:sp=40*25:fe=fs+sp
  13. 120 fb=peek(53281)
  14. 130 : for y=0 to 12
  15. 140 :      for x=0 to 40
  16. 150 :        poke fs+x,fb
  17. 160 :        poke fe-x,fb
  18. 170 :      next x
  19. 180 :    fs=fs+40
  20. 190 :    fe=fe-40
  21. 200 : next y
  22. 210 end
  23. 300 :
  24. 310 :rem bildschirm fuellen
  25. 320 for i=0 to 22
  26. 330 print"clear-screen-basci-demo 1  64'er 07/1992";
  27. 340 next:return
  28.